home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
doors_1
/
fd200.zip
/
FDTEST.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-02-27
|
1KB
|
67 lines
program fdtest;
const
class = 'clas';
section = ' anywhere';
date = 'xx/xx/xx';
time = 'nn:nn';
type callstr = string[6];
var callsign : callstr;
fd_file : text;
line : integer;
modestr : array[0..6] of string[2];
bandstr : array[0..9] of string[4];
i : integer;
procedure makecall;
var i : integer;
begin
for i := 1 to 2 do
callsign[i] := chr(65 + random(26));
callsign[3] := chr(48 + random(10));
for i := 4 to 6 do
callsign[i] := chr(65 + random(27));
end;
procedure fprint;
var st1, st2 : string[8];
begin
makecall;
write(fd_file,callsign:6);
write(fd_file,class:2);
st1 := modestr[random(7)];
write(fd_file,st1 :2);
st2 := bandstr[random(10)];
write(fd_file,st2:3);
write(fd_file,section: 14);
writeln(fd_file,date:3,time:5);
end;
begin
modestr[0] := 'CW';
modestr[1] := 'AM';
modestr[2] := 'FM';
modestr[3] := 'SB';
modestr[4] := 'RY';
modestr[5] := 'MT';
modestr[6] := 'PK';
bandstr[0] := '160';
bandstr[1] := ' 80';
bandstr[2] := ' 40';
bandstr[3] := ' 20';
bandstr[4] := ' 15';
bandstr[5] := ' 10';
bandstr[6] := ' 6';
bandstr[7] := ' 2';
bandstr[8] := '220';
bandstr[9] := '440';
callsign := ' ';
assign(fd_file,'TEST10');
rewrite(fd_file);
for line := 1 to 1000 do
fprint;
close(fd_file);
end.